約 2,735,447 件
https://w.atwiki.jp/shin-b/pages/28.html
Public Class Form1 Private bmpBarcode As Bitmap Private arySPreFixPTRN(10) As String プリフィックスパターンストア用 Private frmH As Integer = 0 Private nbarX As Integer = 0 Private nbarY As Integer = 0 Private drawPen As Pen Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load bmpBarcode = New Bitmap(PictureBox1.Width, PictureBox1.Height) PictureBox1.Image = bmpBarcode InitializePreFixPattern() End Sub Private Sub InitializePreFixPattern() ************************************ バーコードの左側プリフィックス対応 奇数/偶数パリティデータ ************************************ arySPreFixPTRN(0) = "111111" arySPreFixPTRN(1) = "110100" arySPreFixPTRN(2) = "110010" arySPreFixPTRN(3) = "110001" arySPreFixPTRN(4) = "101100" arySPreFixPTRN(5) = "100110" arySPreFixPTRN(6) = "100011" arySPreFixPTRN(7) = "101010" arySPreFixPTRN(8) = "101001" arySPreFixPTRN(9) = "100101" End Sub JAN13バーコードを作成() Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Not CheckJAN13Digit(MaskedTextBox1.Text) Then BarcodeImageClear() MessageBox.Show("JANコード入力エラー") Else WriteBarcode13(MaskedTextBox1.Text) Dim sbmpFileName As String = Application.StartupPath + "\JAN13BCD" _ + MaskedTextBox1.Text + ".bmp" bmpBarcode.Save(sbmpFileName) 自動的にBMPファイルを作成登録 End If End Sub Private Function MakeJAN13Digit(ByVal sBarcode12 As String) As String ***************************************** MakeJAN13Digit("バーコード12桁文字列") 13桁目のチェックデジットを生成して戻す エラーチックは実施していない ***************************************** Dim nSum As Integer = 0 Dim nI As Integer Dim aryCBarcode() As Char = New Char() {} aryCBarcode = sBarcode12.ToCharArray() 1. すべての偶数位置の数字を加算する。 For nI = 1 To 12 Step 2 nSum = nSum + Integer.Parse(aryCBarcode(nI).ToString()) Next 2. 1の結果を3倍する nSum *= 3 3. すべての奇数位置の数字を加算する。 For nI = 0 To 11 Step 2 nSum = nSum + Integer.Parse(aryCBarcode(nI).ToString()) Next 4. 2の答えと3の答えを加算する。 5. 最後に4の結果の下1桁の数字を"10"から引く。 6. 下1桁が"0"となった場合は、チェックデジットはそのまま"0"となる。 nSum = ((nSum / 10) + 1) * 10 - nSum nSum = Strings.Right(10 - Strings.Right(nSum, 1), 1) Return sBarcode12 + nSum.ToString() End Function Private Function CheckJAN13Digit(ByVal sBarcode13 As String) As Boolean ***************************************** CheckJAN13Digit("バーコード13桁文字列") 13桁目のチェックデジットについて検証 エラー時 falseで戻す ***************************************** If (sBarcode13.Length 13) Then Return False End If If (sBarcode13 MakeJAN13Digit(sBarcode13.Substring(0, 12))) Then Return False End If Return True End Function JAN13バーコードを作成() Private Sub BarcodeImageClear() ***************************************** pictureBox1の描画データをCLEARします グラフィックスオブジェクトを取得し 戻り時破棄しているので他の描画プロシー ジャ内の描画処理の間にこの関数を呼ばな いようにします ***************************************** Dim g As Graphics = Graphics.FromImage(PictureBox1.Image) g.Clear(Color.White) PictureBox1.Refresh() g.Dispose() End Sub Private Sub SetDrawStartPoint() ***************************************** pictureBox1に描画するバーコード線の開始 位置を設定します。 ***************************************** frmH = PictureBox1.Height - 26 nbarX = 14 nbarY = 4 drawPen = New Pen(Color.Black, 1) End Sub Private Sub WriteBarcode13(ByVal sBarcode13 As String) ***************************************** WriteBarcode13("バーコード13桁文字列") 13桁のバーコード数値をパラメータとして 与える。バーコード数値についてチェック 行っていないので事前に CheckJAN13Digit(string sBarcode13)を実 行すること バーコードを描画するメインプロシージャ ***************************************** Dim nI As Integer Dim fGothic10 As Font = New Font("MS ゴシック", 10) Dim aryCBarcode() As Char = New Char() {} aryCBarcode = sBarcode13.ToCharArray() Dim nPreFix = Integer.Parse(aryCBarcode(0).ToString()) Dim PreFixPTRN() As Char = arySPreFixPTRN(nPreFix).ToCharArray() BarcodeImageClear() SetDrawStartPoint() Dim g As Graphics = Graphics.FromImage(PictureBox1.Image) g.DrawString(aryCBarcode(0).ToString(), fGothic10, Brushes.Black, nbarX - 8, frmH + 8) WriteGuardBar(g) For nI = 1 To 6 g.DrawString(aryCBarcode(nI).ToString(), fGothic10, Brushes.Black, nbarX, frmH + 8) WriteEachBarLine(g, aryCBarcode(nI), PreFixPTRN(nI - 1)) Next WriteGuardBar(g) For nI = 7 To 12 g.DrawString(aryCBarcode(nI).ToString(), fGothic10, Brushes.Black, nbarX, frmH + 8) WriteEachBarLine(g, aryCBarcode(nI), "2") Next WriteGuardBar(g) PictureBox1.Refresh() g.Dispose() End Sub JAN13バーコードを作成() Private Sub WriteGuardBar(ByVal g As Graphics) ***************************************** バーコードのガードバーを描画する。 両端と中央に縦線を入れる WriteBarcode13(string sBarcode13) から 呼ばれる ***************************************** nbarX = nbarX + 2 For nI = 0 To 1 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH + 16) nbarX = nbarX + 4 Next End Sub Private Sub WriteEachBarLine(ByVal g As Graphics, ByVal cPos As Char, ByVal cPattern As Char) ***************************************** バーコード数値に応じた各バーコード線を 描画するプロシージャへの分岐を担当 WriteBarcode13から呼ばれる ***************************************** Select Case cPos Case "0" WriteBcd0(g, cPattern) Case "1" WriteBcd1(g, cPattern) Case "2" WriteBcd2(g, cPattern) Case "3" WriteBcd3(g, cPattern) Case "4" WriteBcd4(g, cPattern) Case "5" WriteBcd5(g, cPattern) Case "6" WriteBcd6(g, cPattern) Case "7" WriteBcd7(g, cPattern) Case "8" WriteBcd8(g, cPattern) Case "9" WriteBcd9(g, cPattern) End Select End Sub Private Sub WriteBcd0(ByVal g As Graphics, ByVal cPattern As Char) ***************************************** バーコード値 (0)に対応 バーコード数値に応じた各バーコード線を 描画するプロシージャ WriteEachBarLineから呼ばれる ***************************************** Select Case cPattern Case "0" g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 6 g.FillRectangle(Brushes.Black, nbarX, nbarY, 6, frmH) nbarX = nbarX + 8 Case "1" nbarX = nbarX + 4 g.FillRectangle(Brushes.Black, nbarX, nbarY, 4, frmH) nbarX = nbarX + 6 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 Case "2" g.FillRectangle(Brushes.Black, nbarX, nbarY, 6, frmH) nbarX = nbarX + 10 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 End Select End Sub Private Sub WriteBcd1(ByVal g As Graphics, ByVal cPattern As Char) ***************************************** バーコード値 (1)に対応 バーコード数値に応じた各バーコード線を 描画するプロシージャ WriteEachBarLineから呼ばれる ***************************************** Select Case cPattern Case "0" Case "2" g.FillRectangle(Brushes.Black, nbarX, nbarY, 4, frmH) nbarX = nbarX + 8 g.FillRectangle(Brushes.Black, nbarX, nbarY, 4, frmH) nbarX = nbarX + 6 Case "1" nbarX = nbarX + 2 g.FillRectangle(Brushes.Black, nbarX, nbarY, 4, frmH) nbarX = nbarX + 8 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 End Select End Sub Private Sub WriteBcd2(ByVal g As Graphics, ByVal cPattern As Char) ***************************************** バーコード値 (2)に対応 バーコード数値に応じた各バーコード線を 描画するプロシージャ WriteEachBarLineから呼ばれる ***************************************** Select Case cPattern Case "0" nbarX = nbarX + 2 g.FillRectangle(Brushes.Black, nbarX, nbarY, 4, frmH) nbarX = nbarX + 6 g.FillRectangle(Brushes.Black, nbarX, nbarY, 4, frmH) nbarX = nbarX + 6 Case "1" nbarX = nbarX + 2 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 6 g.FillRectangle(Brushes.Black, nbarX, nbarY, 4, frmH) nbarX = nbarX + 6 Case "2" g.FillRectangle(Brushes.Black, nbarX, nbarY, 4, frmH) nbarX = nbarX + 6 g.FillRectangle(Brushes.Black, nbarX, nbarY, 4, frmH) nbarX = nbarX + 8 End Select End Sub Private Sub WriteBcd3(ByVal g As Graphics, ByVal cPattern As Char) ***************************************** バーコード値 (3)に対応 バーコード数値に応じた各バーコード線を 描画するプロシージャ WriteEachBarLineから呼ばれる ***************************************** Select Case cPattern Case "0" Case "2" g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 10 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 Case "1" g.FillRectangle(Brushes.Black, nbarX, nbarY, 8, frmH) nbarX = nbarX + 10 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 End Select End Sub Private Sub WriteBcd4(ByVal g As Graphics, ByVal cPattern As Char) ***************************************** バーコード値 (4)に対応 バーコード数値に応じた各バーコード線を 描画するプロシージャ WriteEachBarLineから呼ばれる ***************************************** Select Case cPattern Case "0" nbarX = nbarX + 2 g.FillRectangle(Brushes.Black, nbarX, nbarY, 6, frmH) nbarX = nbarX + 8 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 Case "1" g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 8 g.FillRectangle(Brushes.Black, nbarX, nbarY, 4, frmH) nbarX = nbarX + 6 Case "2" g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 g.FillRectangle(Brushes.Black, nbarX, nbarY, 6, frmH) nbarX = nbarX + 10 End Select End Sub Private Sub WriteBcd5(ByVal g As Graphics, ByVal cPattern As Char) ***************************************** バーコード値 (5)に対応 バーコード数値に応じた各バーコード線を 描画するプロシージャ WriteEachBarLineから呼ばれる ***************************************** Select Case cPattern Case "0" g.FillRectangle(Brushes.Black, nbarX, nbarY, 6, frmH) nbarX = nbarX + 10 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 Case "1" g.FillRectangle(Brushes.Black, nbarX, nbarY, 4, frmH) nbarX = nbarX + 10 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 Case "2" g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 6 g.FillRectangle(Brushes.Black, nbarX, nbarY, 6, frmH) nbarX = nbarX + 8 End Select End Sub Private Sub WriteBcd6(ByVal g As Graphics, ByVal cPattern As Char) ***************************************** バーコード値 (6)に対応 バーコード数値に応じた各バーコード線を 描画するプロシージャ WriteEachBarLineから呼ばれる ***************************************** Select Case cPattern Case "0" nbarX = nbarX + 6 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 Case "1" g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 g.FillRectangle(Brushes.Black, nbarX, nbarY, 8, frmH) nbarX = nbarX + 10 Case "2" g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 10 End Select End Sub Private Sub WriteBcd7(ByVal g As Graphics, ByVal cPattern As Char) ***************************************** バーコード値 (7)に対応 バーコード数値に応じた各バーコード線を 描画するプロシージャ WriteEachBarLineから呼ばれる ***************************************** Select Case cPattern Case "0" nbarX = nbarX + 2 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 8 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 Case "1" g.FillRectangle(Brushes.Black, nbarX, nbarY, 6, frmH) nbarX = nbarX + 8 g.FillRectangle(Brushes.Black, nbarX, nbarY, 4, frmH) nbarX = nbarX + 6 Case "2" g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 8 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 6 End Select End Sub Private Sub WriteBcd8(ByVal g As Graphics, ByVal cPattern As Char) ***************************************** バーコード値 (8)に対応 バーコード数値に応じた各バーコード線を 描画するプロシージャ WriteEachBarLineから呼ばれる ***************************************** Select Case cPattern Case "0" nbarX = nbarX + 4 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 6 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 Case "1" g.FillRectangle(Brushes.Black, nbarX, nbarY, 4, frmH) nbarX = nbarX + 6 g.FillRectangle(Brushes.Black, nbarX, nbarY, 6, frmH) nbarX = nbarX + 8 Case "2" g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 6 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 8 End Select End Sub Private Sub WriteBcd9(ByVal g As Graphics, ByVal cPattern As Char) ***************************************** バーコード値 (9)に対応 バーコード数値に応じた各バーコード線を 描画するプロシージャ WriteEachBarLineから呼ばれる ***************************************** Select Case cPattern Case "0" nbarX = nbarX + 2 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 g.FillRectangle(Brushes.Black, nbarX, nbarY, 6, frmH) nbarX = nbarX + 8 Case "1" nbarX = nbarX + 4 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 4 g.FillRectangle(Brushes.Black, nbarX, nbarY, 4, frmH) nbarX = nbarX + 6 Case "2" g.FillRectangle(Brushes.Black, nbarX, nbarY, 6, frmH) nbarX = nbarX + 8 g.FillRectangle(Brushes.Black, nbarX, nbarY, 2, frmH) nbarX = nbarX + 6 End Select End Sub End Class
https://w.atwiki.jp/switchsoft/pages/1141.html
大富豪F.net カードゲーム トランプ-大富豪 プレイ人数× 1 インターネット通信プレイ人数× 2 ~ 4 500円(税込)150MB 手軽に楽しめるトランプゲームの大定番! 定番ゲームシリーズ「F(フライハイ)シリーズ」の第2作。 ネット通信対戦対応のトランプゲーム「大富豪」です。 ほかのプレイヤーより早く手札を出し切り勝者の称号「大富豪」を手に入れましょう 気持ちよく遊んでいただけるように、「オートプレイ機能」も搭載。 邪魔しない操作感と落ち着いた雰囲気にこだわった、 ちょっとリラックスしたい時にオススメの作品です。 お知らせ この[[ソフト]]にはオンラインプレイに対応したモードがあります。 オンラインプレイであそぶにはインターネットに接続できる環境と、Nintendo Switch Onlineへの加入(有料)が必要です。 メーカー フライハイワークス 配信日 2019年1月17日 対応ハード Nintendo Switch セーブデータお預かり対応 対応コントローラー Nintendo Switch Proコントローラー プレイモード TVモード, テーブルモード, 携帯モード プレイ人数× 1 インターネット通信プレイ人数× 2 ~ 4 対応言語 日本語, 英語, 中国語 レーティング CERO A 大富豪f.netを買う人は以下のルールに納得できる人以外別のやつ方がいいです(オプション等で変えられません) ・重ね階段 ・スペ3、都落ち、8切り有 ・11バック無 ・ゲーム開始時ランダム1枚とジョーカー1枚除外 個人的に気持ち悪くらい合わなくて問い合わせてみたけど返信見る限り改善する気はないみたいだ ローカルルールが色々あるの知ってんならせめてeshopの紹介文とかに以下のルール固定ですって書いてくれよな~ 返金できないんだからさ~ -- 名無しさん (2019-01-21 23 41 57) 対戦もフレンドとやれないし正直ハズレだった -- 名無しさん (2019-01-22 11 52 54) 俺も買ったけどこりゃダメな奴だなとすぐ悟った ルール固定はやっぱり痛い 500円だからいいんだけどさ -- 名無しさん (2019-01-22 11 53 32) 不満に感じる気持ちもわかるけど、フライハイの大富豪F、しばらく遊んでたら面白みが出てきた 八切りも都落ちもスート縛りも初体験でメチャクチャ戸惑ったんだけど、これラウンド速く進めるためのルールなんだね とにかくドンドン回ってドンドン次ラウンドに行く スピード感重視の設定なんだなと思う 普通の大富豪と思ったら不満はあるんだけど、「こういうルールの新しいゲーム」と思うと楽しい 八切り見落として反則上がりになってくやしかったりもするけどw 不満は勝敗設定が7ポイント先取で固定なことぐらいかな -- 名無しさん (2019-01-28 21 10 37) 名前 コメント
https://w.atwiki.jp/ondating/pages/10.html
Many people are looking for casual dating partners. Casual dating is a type of dating that usually happens without much planning. It typically involves one night stands, friends with benefits, and other types of short-term relationships. Some people say that the best way to find a casual date partner is to just go out and meet someone you re attracted to that you know you d like to sleep with. Others claim it s better to go on an online dating site or apps. While others suggest social gatherings, parties, bars, clubs, restaurants, grocery stores and other public places where people might be looking for casual dates. The Importance of Finding the Right Casual Dating Partner It is important to find the right casual dating, because there are many options available. People have different preferences when it comes to dating. Some prefer serious relationships, others prefer occasional dates with no commitments, while some want just a hook up. The good thing about casual dating is that people can take things at their own pace and find someone compatible for them. The downside of casual dating is that people are more likely to get hurt emotionally because the other person might not be interested in any kind of commitment or they might not even show up on the date. The other downside is that people will often feel guilty for finding someone who they can have fun with instead of focusing on finding a serious relationship partner. Finding the right casual dating partner can be difficult. However, there are many ways to get to know someone casually before you commit to anything serious. The best way to find a suitable casual date is by looking for someone who shares mutual interests with you. It will make the interaction more natural and you ll enjoy it more, too. What to Look for in a Casual Dating Partner When we are looking for a casual date partner, we should look for someone who is physically attractive to us and has a sense of humor. One way to get to know someone is by having a casual date. This means that there are no strings attached and you can get to know the person outside of the context of work or school. Casual dating partners must have specific attributes in order to suit your needs. If you want to have a fun, enjoyable evening on a casual date, then there are certain attributes that you should look for in your partner. It s not necessary to find someone who is like you, and it may be more fun and less awkward if you focus on finding someone with different interests. That way, they can show you new things and teach you about what they like to do in their free time. Anyway, you ll likely want to find someone who has similar values. Tips for Successful Casual Dating Online There are numerous ways to find a date, but the easiest and most convenient way is through dating apps. Here are some tips for finding a date on dating apps. 1. Upload photos of yourself from your profile. If one has no pictures up, it may be hard for others to see what they would be looking at when they went on a date with them. 2. Complete the bio - fill in as much information as possible about oneself and what they re looking for in a partner, including height and weight requirements if there are any. 3. Have someone else take photos of you if you don t know how to do it well or just prefer not to take selfies - this will ensure that the pictures are flattering and not awkward-looking shots taken from below your chin or something like that! When it comes to finding a date, there are so many options available. But, if you don t want to go to a bar and wait around for someone, you can try online dating. What is the Different between Hooking up and Casual Dating? Hooking up is different than casual dating because of the level of commitment and intimacy. Casual dating is more of a committed relationship where you are in a committed relationship but you are not yet ready to be in one. A hookup can be anything from making out to sexual intercourse. It may last only a few minutes or hours and doesn’t always involve exchanging names or contact information. Research has shown that there is no correlation between hookups and mental health, but casual dating will last longer than just one night. There appears to be an inverse correlation between casual dating frequency and mental health, meaning that the more often they date, the better their mental health will be.
https://w.atwiki.jp/turuhage/pages/54.html
2011/02/09のNHKのあさイチのテーマがネット依存 のときのつるの 「僕もネット結構するが普段の生活はご飯中のブログ更新意外は奥さんに満点頂いてる」 「僕はネット上の会話を止めたく無いんで…相手のせいもあるけど」 「楽ですからねリアルな事細かく考えなくて良いし」 「僕はネットに心を奪われちゃってて…予定より長く時間が」 「ネットに頼らない趣味を持つ… 僕はサーフィンや釣りネット将棋はで24時間やってましたけど普段は道場行きますし、 一時は趣味の時間で実生活潰した事もありますけど」 「僕もついついネットしちゃってますからね~でも奥さんがしてたら嫌だな」 「(つるのツイッター依存のファン)僕のせいみたいじゃないですか、皆さんが居るから僕もね…」 等々と発言 つるののネット暦 つるの剛士のCOMMON SPACE つるたけ日記 ミクシィ 秘密基地 つるもばブログ 武道館特設ブログ つるの特設サイト ツイッター(つるの) ツイッター(セミ) Facebook←New ツイッターを始めたらブログはツイッターを貼り付けるだけ 秘密基地は数日に一言書き込むだけ ミクシィ・つるばいるほぼ放置 新しいツールに手を出して以前のは放置するのがつるの流
https://w.atwiki.jp/zarabel/pages/317.html
Jes nehhe qusi dio, nefis slin, Seo la miqvy evoia 今ここに 全ての名前に誓って唯一つ Ris sia sophia, kyel hiz phia nefis loor mille 何時の日か 約束の地を踏みしめる、その日まで omia lef nefis riris et tel alt, ilmei missis evhe ele peqqy 開かれた新約の扉に鍵はなく 大いなる少女の旋律が共にある
https://w.atwiki.jp/ipubluedictionary/pages/110.html
CheckedListBox DateTimePicker TableLayoutPanel Enum SplitContainer KeyEventArgs
https://w.atwiki.jp/atachi/pages/23.html
string型 [#s46bd48d] 文字の操作方法一覧 [#p3fecd9a] 文字列の等価比較 [#vd94d25e] 正規表現 対象がスカラー値の場合の書式指定記法 [#i429a806] 対象が日時の場合の書式指定記法 [#u2a0f385] string型 C#では文字列の扱いはすべてstring型で扱う。 stringはSystem Stringクラスなので、文字列に関する多くの操作はStringクラスが実装している。 内部はユニコードである。 文字の操作方法一覧 操作 呼び出しサンプル 説明 文字列の長さ s.Length Lengthプロパティを使用する。 "文字".Length 拡張メソッドによってリテラルからStringクラスのメソッドを呼び出せる。 結合 "abc" + "ABC" 文字列結合演算子 大文字化 s.ToUpper() 小文字化 s.ToLower() 文字分割 s.split( / ) 戻り値はstring型の配列 部分文字列 s.Substring(5,10) 指定した位置の文字を取得。例の場合、5文字目から10文字分の文字列を返す。 トリム s.Trim() s.TrimStart() 文字列の先頭にある空白をトリミングする。 s.TrimEnd() 文字列の末尾にある空白をトリミングする。 等価比較 s == "文字列" s.Equals("文字列") 激しく非推奨 (下記参照) 不等価比較 s != "文字列" 大小比較 先頭比較 s.StartWith("My") 文字列が先頭の文字にマッチするか。 末尾比較 s.EndWith("Test") 文字列が最後の文字にマッチするか。 空文字判定 文字検索 s.IndexOf("Program") 文字列にマッチした最初の位置を返す 置き換え s.Replace("Before","After") 置換処理後の文字列を返す 左寄せ(右埋め) s.PadLeft(10) 指定した文字数になるように空白で右側(左側)を埋めた文字列を返す 右寄せ(左埋め) s.PadRight(10) 文字列の等価比較 文字列はstring型(または、ボックス化によりString型)であるため、等価比較を行うにあたって2つの方法が存在する。 ==演算子による方法 Object.Equals()による方法 string型はイミュータブルなので、==演算子を使用できる。 Object.Equals()でも等価比較が可能だが、ボックス化によるパフォーマンス低下とタイプセーフではないという実装上のデメリットが生じる。 特に、タイプセーフでないために対象がObject型ならば何でもEquals()に与えることができてしまうため、文字列以外の型を与えた場合に必ずしも等価でないケースが存在してしまう。 int i = 0; string s = "0"; Console.WriteLine( s == i ); // コンパイルエラー(異なる型を==演算子で比較できない) Console.WriteLine( s == i.ToString() ); // 明示的にiを文字列へ。 結果はTrue Console.WriteLine( s.Equals(i) ); // False Javaとは動作が決定的に異なるので、Java経験者は注意が必要です。 正規表現 System.Text.RegularExpressions.Regexを使用する。 static void Main() { string s = @" This is a test program. you can download it from the following page. http //www.xxx.yyy/bin/test.exe If you have any questions about this, please contact us by sending e-mail to the following address. support@xxx.yyy "; // メールアドレス抽出 Regex email = new Regex(@"\w*@[\w\.]*"); Console.Write("{0}\n", email.Match(s).Value); 正規表現が複数にマッチした場合は次のようにする。 Match m = null; for(m = reg.Match(s);m.Success;m = m.NextMatch()) { Console.Write("{0}\n", m.Value); } MSDN 正規表現言語要素 対象がスカラー値の場合の書式指定記法 置き換える文字と引数の順番が対応している。{0}は1番目の引数で置き換える。 書式 説明 指定例 表示例 d 数値を表示 {0 d} 1234 dn 任意の桁数で表示。桁が足りない場合は「0」で埋まる {0 d4} 0123 c 数値を通貨書式で表示 {0 c} \5,120 n 「,」区切り {0 n} 5,120 x 16進数で表示 {0 x} 4e0c g 小数点表示 {0 g} 0.1575 f 小数点部の桁固定で表示デフォルトでは2桁 {0 f} 0.15 fn 小数点部の桁固定数を指定 {0 f5} 178.12466 e 指数形式で表示 {0 e} 1.575e-002 p パーセンテージで表示 {0 p} 15% 数値 桁指定。整数部と小数部は「.」で区切る。 {0 000.000} 057.120 0 数値の表示位置。例の書式で「123456789」という値を与えた場合は表示例のようになる。 {0 (000)-000-0000} (012)-345-6789 対象が日時の場合の書式指定記法 書式対象のデータ型がDateTimeの場合、書式指定の意味合いが異なるものがあります。 年の指定 y 年。2桁表記。0~99 yy 年。常に2桁での出力。00~99 yyy 年。常に3桁での出力。 yyyy 年。常に4桁での出力。 yyyyy 年。常に5桁での出力。 月の指定 M 月。1~12 MM 月。常に2桁での出力。01~12 MMM 月の省略名で出力 MMMM 日付の指定 d 日付。1~31 dd 日付。常に2桁での出力。01~31 ddd dddd 時間の指定 h 12時間表記。0~12 hh 12時間表記。常に2桁での出力。00~12 H 24時間表記。0~23 HH 24時間表記。常に2桁での出力。00~23 tt 午前・午後の表示。日本語ロケールの場合は「午前/午後」と表示される。英語の場合は「AM/PM」となる。 分の指定 m 分。0~59 mm 分。常に2桁での出力。00~59 秒の指定 s 秒。0~59 ss 秒。常に2桁での出力。00~59
https://w.atwiki.jp/net-k/pages/18.html
指定したディレクトリ以下にあるファイルの中から指定した文字列を含むものを検索する find ./ -name \*.txt -print | xargs grep -n "Microsoft" http //phiz-whiz.seesaa.net/article/137420582.html 時刻合わせ タイムゾーンをJSTに変更 cp /usr/share/zoneinfo/Japan /etc/localtime date ntp ntpdate 133.100.9.2 samba http //linux.kororo.jp/cont/server/samba30.php http //www.aquablue.ne.jp/yama/diary/wd201003.html http //ja.528p.com/linux/centos/SP001-samba.html
https://w.atwiki.jp/monopowers/pages/105.html
EC-CUBE define定義ファイルまでのパス root/data/mtb_constants_init.php
https://w.atwiki.jp/retrogamewiki/pages/3048.html
今日 - 合計 - NET VERSUS リバーシの攻略ページ 目次 基本情報 [部分編集] ストーリー [部分編集] 攻略情報 [部分編集] Tips [部分編集] プチ情報 [部分編集] 関連動画 [部分編集] 参考文献、参考サイト [部分編集] 感想・レビュー 基本情報 [部分編集] ストーリー [部分編集] 攻略情報 [部分編集] Tips [部分編集] プチ情報 [部分編集] 関連動画 [部分編集] 参考文献、参考サイト [部分編集] 感想・レビュー 名前 コメント 選択肢 投票 役に立った (0) 2012年10月09日 (火) 14時56分48秒 [部分編集] ページごとのメニューの編集はこちらの部分編集から行ってください [部分編集] 編集に関して